home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / vo_test.e < prev   
Text File  |  1999-11-29  |  431b  |  24 lines
  1. MODULE '*virt_Obj'
  2.  
  3. PROC main()
  4.    DEF vo:PTR TO virtObj
  5.    NEW vo
  6.    vo.set([1], 1)
  7.    vo.set([1, 2], 2)
  8.    vo.set([1, 2, 3], 3)
  9.    vo.set([3, 2, 1], 20)
  10.    vo.travNodesS({bla})
  11.    vo.unset([1])
  12.    vo.travNodesS({bla})
  13.    END vo
  14. ENDPROC
  15.  
  16. PROC bla(n:PTR TO vo_node)
  17.    DEF a
  18.    WriteF('elist : ')
  19.    FOR a := 0 TO ListLen(n.elist)-1
  20.       WriteF('\d, ', ListItem(n.elist, a))
  21.    ENDFOR
  22.    WriteF('..value : \d\n', n.value)
  23. ENDPROC
  24.